home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-serious-
/
graphics
/
amicad
/
arexx_english
/
simulation.amicad
< prev
next >
Wrap
Text File
|
1999-12-06
|
1KB
|
44 lines
/* Lancement simulation analogique */
/* 8/5/99: version 1.01: ajout guillemets autour du nom du fichier (pour espaces éventuels) */
/* $VER: 1.01e (© R.Florac, 22 mai 1999) */
options results /* indispensable pour récupérer le résultat des macros */
signal on error /* pour l'interception des erreurs */
signal on syntax
parse arg fichier
if fichier="" then do
'REQFILE("Choose a netlist", "Spice", "*.cir")'
fichier=result
end
if fichier~="" then do
fichier_simulation='"RAM:'||ParseFileName(fichier)||'_spice"'
address command
'stack' " 64000"
'cd' " Work:spice3f5"
arguments='"'||fichier||'"'||' -b -r '||fichier_simulation||' >CON:100/100/500/300/Spice/CLOSE/WAIT/SCREENAmiCAD'
address command
'Work:spice3f5/bin/spice3f5full_040' arguments
end
exit
ParseFileName: procedure
parse arg FilePath, Part
DivPos = max(lastpos(':',FilePath),lastpos('/',FilePath))+1
if abbrev('FILE', upper(Part))
then return substr(FilePath, DivPos)
else
return strip(left(FilePath, DivPos-1),'T','/')
/* Traitement des erreurs, interruption du programme */
syntax:
erreur=RC
'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
exit
error:
'MESSAGE("Erreur en ligne 'SIGL'")'
exit